#!/usr/bin/perl -w

my $tanktype = shift;

#####################################################################
# Program Variables - Go see the central config.pm!
#####################################################################
use FindBin qw($Bin);
use lib "$Bin/..";
use config;

#####################################################################
# Program Modules
#####################################################################

#####################################################################
# Program Start
#####################################################################

print `sqlite3 $database_file ".read $Bin/../database/structure.sql"`;

if (defined($tanktype)) {
    print `sqlite3 $database_file ".read $Bin/../database/$tanktype.sql"`;
} else {
    print "You will need to import the tank initial definitions manually.\n";
}

exit 0;

